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PSS?PANDARD' FORTRAN 








FORTRAN 


TRAN is short for FORmula TRANs 
is a computer language, that is, a lang- 
vage ee people use to control computers, ae 
was the first widely used computer language + 
was designed for people rather than for a mach 
ogram resembles English. Before FORTRAN, 
to be done in machine code. A 
code program is just a serie S OZ numbers. 
reason, FORTRAN was Cae a "nigh level 
, -" Today there are thousands of other 
alley vel languages, but FORTRAN remains the most 
common. BASIC is another popular high level lang- 
wage. Those of you familar with BASIC will notice 
many similarities between BASIC and FORTRAN 
To give you an idea of how a FORTRAN program 
iooks, examine the following very simple example. 
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SIMPLE 
1g FORMAT (F1g.4) 

TOTAL=2.9+5.9 ’ 

WRITE (3,19) TOTAL 

STOP 7 

END 

OMSI 2993 FORTRAN is a series of computer programs 

written in the BASIC language which run short FORTRAN 
programs. To use OMSI 2999 FORTRAN, you must first log 
on to your Hewlett-Packard 297% series computer in 
the normal fashion. If you do not know how to log 
on, you should either get help from your instructor, 
or consult an H-P 299% BASIC manual. After you have 
logged on, you must get the program 'FORTRN' from 
storage (GET-FORTRN) and run this program. £ the 
system is not available, check an OMSI 209% FORTRAN 
manual, or get help from your instructor. If the 
system is available, after you have typed 'RUN', it 
will xespond with 'OMSI 2%9% FORTRAN", and then a 
period on the left margin. You are now ready to 
start programming in FORTRAN. 
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FORTRAN PROGRAMS 
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examined. 
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be more closely. 
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* SIMPLE 


1g 









x program is a set the 
exactly what to Sup tells the computer 

he sum of 2.9 and 5.9, print the result cut on the 
x, and stop. Although this program is very short 
everal of the important rules t must be 


ine of a FORTRAN 


separate, distinct instruction. Each line is 


t 
ve c 
for all FORTRAN programs. Each 1 
a foe 

re 


or "statement". 
ing from the top, the. firs 
Gy t xeally an instructi Oo the computer, just 
zt name of the program. Every FORTRAN program must 
have a name. The next line is "1g FORMAT (P19.4)". 
The. "1g" at the start of the line is called the 
statement number; statement numbers are used to refer- 
ence a line from within a program. The word "FORMAT" 
Gescribes what kind of statement it is. What the FORMAT 
Statement does and how it is used will be discussed 
later, but. right now you must re that ALL FORMAT 
PROGRAM, only the 


t line is "SIMPLE". 














STATEMENTS MUST BE AT THE FIRST OF 
name can be before the FORMAT staten 
















ants. 
The next line, " TOTAL=2.9+5.9" is calle@ an 
assignment statement. It assigns the numeri an 
@ expression (in this case, 2.%+5.9) on +t} bs 
equals sign to the variable on the left bey 
In this case that variable is 
This will also be very thouroy 1 


ug! 
the book. it is important to no 
spaces in front of the statement 
ere On pedctie In FORTRAN ONLY THING ALLOWED IN 
RST SIX SPACES OF A LIN: STATEMENT NUMBER, 
THING ELSE MUST START IN COLUM 






















EVERY SEVEN. If a line 
Goes not have a state spaces must be 

=t blank. You will notice that the word FORMAT in the 
FORMAT statement starts in the seventh colunn 


mo tk uter to print out 
ble TOTAL on Bie teleprinter. 


ae stop runni 
he final ine 


che 


MUST BE AN 

BE AN ED - Again the 

used before the word "END’, 

For a program to run, the steps must be in the correct 

order. ie " computer does each step working from the top of 
the list down. This program is wrong. 





WRONGL 
1g Rene (F1g. 4) 
OTAL=2.9+5. 
STOP 5 
WRITE (3,19). TOTAL 
END 


It will not work correctly because the computer is told to stop 
before it is told to print out the value of variable TOTAL. 
The program > 


WRONG2 
19 FORMAT 


<i 


xun correctly either since the computer is told 
out the value of the variable TOTAL before it is 
at that value is, 

vill talk more about variables, statements, and othe 
matters further on in the book, but for the moment the dmpox 
tant points to remember are the rules for spacing and orderin 
the statements in a FORTRAN Program. ‘ 
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a) 


¢c) 





What will these programs do? 


b) 
T (F1g.4) 
TOTAL=3 .#+3.9 
WRITE (3,19) 
STOP © 
END 





What is wrong with each of these programs? 


WRONG3 f b) 
1g eo (Plg. > 1g 
TAL=2.8+3. ; 
2 ae (3,12) eee 
EF Suis ° 
S & 


WRONGS 
TOTAL=2.$+3.9 
WRITE (3,19) TOTAL 
1g FORMAT (F1g.4 
STOP 
END | = 


WRONG4 


TOTAL=2 . J: 


FORMAT (P1g.4) 

B 

WRITE (3,19) TOTAL 
STOP 













PERATING OMST 


BASI 








or", and OMSI 240% 
ie es the sys- 
commands. 


1x ready for your use. The 
ten m the monitor, using a serie 
Cc fi 





b= 
ommands are not part of a program 
instructions that the user tells t 
possible to run his program. 
"The first command that is needed to run a FORTRAN pro- 

gram is the LOAD command. This command is used to make 

the computer accept the user's program. The 

computer identifies commands by their first two letters, 

so LO means the same as LOAD to the monitor. When the 

user types LOAD and presses the return key (the return key 
must be pressed ter everything typed into the computer), 
it will type out: 








- LOAD 


DROGRAM NAME-~ 








Now the computer is ready to take the progra:m into storage. 
It will not do any of the instructions in the program now. | 
LOAD just gets the FORTRAN program into the computer so that 
it can be run at a later time. After the user types in the 
program name, the text of the program can be typed Lie on 
example, the program SIMPLE would be loaded like this: 








LOAD 
PROGRAM NAME--SIM 













zea by th pro. 

i th pace 

BS line 

1 UN fats) 
Sc must begin 
co da by hold 
key while typi Z he rest of 
is represented ro". “Pabbing the 
correct spacing would be Gone like th 
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move over, b 
program SIMPLE 


-L0 





Now the text has been loaded and the user must return to the 
monitor to type any further commands. Typing a control vy (¥°%) 
will exit the user from the LOAD command. Having completed 
loacing SIMPLE, the SG will return the user to the monitor: 


ys 


ANS 





period indicates that the computer is.ready to accept 
commands 

To have. the computer "execute" a 
been "LOADed"”, the EXECUTE command is u 
computer to do B53 instructions ii th 
the program SIM. .typing EXECUTE wi 
the foilowing print out: 





0 EXECUTE “tells the 
ogram. Having loaded 
it, resulting in 


LOSDING FORTRAN ‘SIMPLE! 





EXECUTION FORTRAN 'Si 





MPLE? 











WO 





The 
compu 


is the result, and the 
ack the monitor mode so 
@ typed in. If there had been 
the computer would have print 
typed E> 
















hem out 
SCUTE. For example,.if the word FOR: 





out: 





To get a listing of the current FORTRAN program the LIST 
command is used. A listing of the program which contained the 
error above could be obtained by typing LIST after the computer 
printed out the period. The user can now see that I° has 
correctly spaced the program. 





ig FROMAT (P19. 4) 
TOTAL=2.9+5.0 2 

~____WRITE(3,1@) TOTAL . 

ee STOP 

ND. 











When the user is done, he can return to BASIC by the- UJOB 
command, UJOB will not erase the current FORTRAN program. 















.UJOB 

LOG OUT: FORTRAN 

PLEASE REPORT MALFUNCTIONS OR COMMS THE SOFTWARE DEVELOPMENT 
GROUP AT THE OREGON MUSEUM OF SCIE INDUSTRY, PORTLAND 





OREGON, 97220 


It is very important to become familiar with these commands. 
Without the ability to operate the OMSI 299% FORTRAN system, it 
is impossible to run FORTRAN programs. 





nh typed in to the monitor 





S, and List the FORPRAN program SEMPLE. 








4 Reck answex 


= 
by running those programs. 
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ASSIGNMENT STATEMENTS 


Assignment statements are used to assign a value to 
a variable. In FORTRAN; a variable is a storage location 
in the machine, not an algebraic variable. For that reason, 
an expression that would not make any sense in algebra, "A=A+1", 
is perfectly acceptable in FORTRAN Assigning a value to a 
variable is sometimes called "defining" the variable. 

There are rules for variable names in FORTRAN that 
must be remembered for successful programming. Pirst, 
variable name may have one to six characters, and the 
first character must be a letter, The rest of the char- 
acters may be either letters or digits. Some examples of 
legal variable names are INFLAT, PLINTH, ISINK, and BOZ023 
Some illegal variables are SCHWARTZ (too many characters), 

MANES ( is not a letter or digit), and. 2INTEG (it does 
not start with a letter). 

FORTRAN has two kinds (called "“modes") of variablés, 
floating point and integer... An integer variable must have a 
whole number value. Floating point variables may have any 
real value (for this reason they are often called "real" 
variables). Any variable with the first letter I, J, K, L, 

M, ox-N is automatically an integer variable. Variables 
starting with any other letter are automatically floating point. 
For example, ZAPP is a floating point variable; IMP is an 
integer variable, 

Expressions in FORTRAN also have modes, An expression 


isa correctly ordered series of values and operators, such 
as: 





a 


2.8+2.8 or 4*241 or 
(3,9+5.9)/7.5 or (243) **4 


In FORTRAN the symbol "+" is used for addition. The symbol 
"-"is used for subtraction. Multiplication is represented by 
"*" and division by "/". Expontentiation is given by 

the symbol "**" (two to the third power, 2° sis written 2**3) 
Expressions are evaluated by a standard procedure. The 
computer does all expontentiation first, then all multip- 
lication and division (if there is more than one "*" or "/" 
in an expression, the computer works from left to right). 
Then the computer does all additions and subtractions, 
working from left to right. Any quantity placed in paran- 
theses will be evaluated first. For example: 


1¥2*4=1+4 (2*4)=9 
(142) *4=12 





2.942. G**3.S=2.9+ (2. 8**3.9)=18.9 
(2. $+2.8)**3.9=64.9 


844%*2/2= eas 


(844) *#2/25 ( (844) **2) /2=72 
B+4%% (2/2) =B+ (44% (2/2) ) =12 


ig 


") 






4" 





An expression like is an integer expression 
since it contains only ral quantit OS). (ALC gel Sr osNt 

The exx Meo} Be Ssite wer floating point (xeal) 
expression since it contains quantities that have decimal 
MOMMES... GAM: floating point constants Must have a decimal 
point, and integer quantities must not have decimal points. 
Within a single expression ALL QUANTITIES MUST HAVE THE SAME 
MODE. Expressions like "2. $*2" oO 


xr "443.5" are not accept— 
able FORTRAN expression because they contain more than one 
mode, 





agp 



















Variables can also be used in expressions, as long as 
they are of the same mode as the rest of expression and have 
been defined previously in the Program. Some acceptable 
examples are: 


SAM+2.5 

(INDEX+7) /2 

2* (INK+LINK+MINK) -KINK/3 

PEGLEG** 2. $+CROCK**2,.9 

As mentioned earlier, the purpose of the assignment 

statement is to assign values to variables. The general 
format for this is placing the variable that is to be 
assigned on the left side of an equal sign and the expression 
on the right side of the equal sign, like this: 


INK=1+2°4 
ALPHA= (2. 9+2.f) **3.9 
REGLEN=PEGLEG** 2. 9+CROCK**2. 9 
KOUNT=KOUNT+1 





The expression "INK=1+2*4" will store the value of 
"14+2*4" in the location (variable) "INK". ‘The expression 
"KOUNT=KOUNT+1" means add 1 to the value in 
KOUNT and store this new value in location (variable) KOUNT, 

Expressions always return a value in the same mode as 
the expresssion, If the line "IVALUE=7/2" was executed ina 
program, IVALUE would have value 3. The line "IVALUE=-7/2" 
would return the value -3 to IVALUE. In both cases, Since both 


values are integer constants, their quotient was simply truncated 


The mode of the variable assigned should be the same as the 
expression. : 

By changing the expression in SIMPLE, the program 
can be used to print out the value of any numeric ex- 
pression. For example, if (2,543.4) /7.1412,45**2.g 


“needed to be evaluated,. SIMPLE would be rewritten 


SIMPLE3 
ig 





TOTAL= (2,543.4) /7.1412.45**2.9 
WRITE (3,18) TOTAL 

STOP 

END 


alas 


location (variable) 


—~ 





Execution of this program will output " 155.833 
value of this expression. 

FORTRAN has available a series of numeric valued 
functions for use in expressions. Available functions 


ty ee: 






include 
SIN (rx) sine of an angle in radians 
C05 (xx) cosine of an angle in radians 
AINT (xx) truncates digit after decimal point 
SQRT (rx) square root 
ABS (xx) absolute value 


All the functions shown must have floating point arguments 
and all will return floating point values. A complete list 
all the functions available can be found in an OMSI 2p¢¢ 
FORTRAN manual. If a program to find the sine of ° 

a value was needed, SIMPLE could be modified. 


SIMPLE4 

1g FORMAT (F1g.4) 
ALPHA=3,14159/4.9 
TOTAL=SIN (ALPHA) 
WRITE (3,19) TOTAL: 
.STOP 
END 


When executed the results are 
EX : ; 


LOADING FORTRAN 'SIMPLE4'* 











ECUTION FORTRAN 'SIMPLE4' 


E 


i 7971 


EXECUTION COMPLETED 





Two very important functions are FLOAT and IFIX. 
These functions change mode. FLOAT will change an integer 
value into a floating point value. IFIX will change a 
£loating point value into an jnteger: For eample, if the 
values of TOTAL and IMP needed to be added together, the 
mode of one would have to be changed. This could be done 
two ways 


IMPTOT=IMP+IFIX (TOTAL) 
or 
TOTIMP=FLOAT (IMP) +TOTAL 


The method chosen would depend on what mode the result 
was to be. 

The assignment statement is the heart of a program. 
FORTRAN is a FORmula TRANslater because it can “translate” 
complicated assignment statements into machine operations. 
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EXERCISES 1.4 


aes 


Which of these variables are legal, and if they are legal, 
‘ what mode are they? 
ww ; 
a) ALPHA b) OUTPUT c) JAM 
d) SOCK12 e) 12MORE £) HOT-45 


2) Which of the folowing expressions are legal, and what is 
the mode of the legal expressions? 


a) -APA+2.3 b) 2% (IMP+1.9) Cc) 2.9**3.9+THETALS 
) a) (2** (JOG* (3+) )) e) 2.8* (G+H+I+T) /3 £) (ImP+ (2* INK) 


3) What is the value of these FORTRAN expressions, 
given that ALPHA=2.5, BETA=5.@, IMP=4, INK=3, and 
JOGGER=1? ° : 


a) 5/2*2 i b)  2.8**3.9+19.9/2.5-2.8%4.5 
ic) ALPHA+BETA a) (INK+2) * IMP : 
e) BETA**2 . S+ALPHA* 2.9 25) JOGGER+IMP*INK 


4) Rewrite SIMPLE to find the value of the following 
expressions. z 


(NOTE: Remember that TOTAL is a REAL variable). 


a) The product of 5 and 6 i 
=n b) Expression b in exercise 3. 
c) The square root of pi (3.1415926) 
ted d) wo squared plus three squared plus four squared, 


5) Write a set of FORTRAN expressions that will set the 
variable BETA to be the square of the variable ALPHA, 
the variable DELTA to be the cube of ALPHA, and the 
variable TOTAL to be the sum of BETA and DELTA. Using 
the program SIMPLE as a guide for outputting TOTAL, 
Set ALPHA to be 3, and run this program. 


6) Write a FORTRAN expression for the discriminant of the 
quadratic equation (d=b*?-4ac, for the equation ax*+bx+c=). 


Using this expression, write a FORTRAN Program to find the 
discriminant of 4x*-5x+6=¢. 
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Neg 


_4 digits after the decimal point. The numb 


OURPUL 





To output information from the computer to the user, 
a combination of two FORTRAN statements is needed, WRITE 
and FORMAT. The WRITE statement tells the computer to 
print out the values of a list of variables; the FORMAT 
statement tells exactly where the numbers are to be 
placed. : 

The WRITE statement is the simpler of the two. It 
has the general form: 








WRITE (3,<FORMAT reference>) <variable list> 


The 3 is the device code. the device code specifies the 
device on which output will be printed. In OMST 2029 
FORTRAN the only device available is the teleprinter, so 3 
is the only device code. "<roRMaT reference>" is the line 
number of the FORMAT statement that the WRITE will use to 
position the output on.the page. "<variable list>" is a 
list of variables that the program will print out. So 

the statement 


WRITE (3,18) INDEX, IVALUE 


will print out the values of the variables INDEX and 


IVALUE out on the teleprinter using the FORMAT statement 
with line number 1%. The statement 


WRITE (3,289) A,SQRA,CUBA 


will print out the values of A, SQRA, and CUBA on the 
teleprinter using the FORMAT statement with line number 
295. 

FORMAT statements are trickier. It is important 
to remember that the user has to specify what he wants 
in every space of every line. A line on a teleprinter has 
72 spaces. The program SIMPLE uses a very simple WRITE- 
FORMAT combination: 


1g FORMAT (F1g.4) 


WRITE (3,19) TOTAL 


The value of the variable total will be printed out 
using FORMAT statement "1g". That FORMAT has the 

code F1%,4 as the output specification. DE reat 
reserves the first ten spaces (it is the first spec- 
ification) for a floating point value. The F stands 
for floating point. The 4 tells the computer to print 
2x will be 
printed as far to left in the field as possible. The 
first unused spaces are filled with blank spaces. The 
rogram SIMPLE printed out the following number field: 


7.9989 
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te used a lg space field and printed 4 digits to the 
left of the decimal poiut, even though ther digits 
were all zeroas. 








If the format specification on SIMPLE was changed 
to F1f.3 the ouput would be 


7.809 


If the FORMAT specification was changed to HORS ec 
output would then be : 


7.99999 


in selecting FORMAT specifications, the user must 
be careful to allow enough space in the field for a 
decimal point and for a negative sign (in case the value is 
less than zero). The specification Fl.g is not accept- 
able because it reserves Only enough Space for the decimal 
point, leaving no room for any digits. F2.% will not be 
acceptable for a negative number because it only has 
space for the sign and the decimal point, again leaving 
no room for any digits, The use of a field that is too 
small for the number, such as printing 1999.92 using a 
F5.2 specification, will cause errers in the output. 

The F (floating point) format specification 
xs for floating point numbers so variables printed 
using F format must be flodting point variables. For 
integer variables, the I format specification is used. 
It has the form "Iw", where w is the width of the field. 
Since integer variables can not have decimal points, 
there is no need to reserve space for digits after the 
decimal point. The value of the variable is printed in 
the spaces furthest to the right, with the first, un- 
used spaces being left blank. The program 


INTEGER 
39 FORMAT (17) 
IN=22+269 
WRITE (3,39) IN 
STOP 
END 
will give the following output when executed, 
BEX 


LOADING FORTRAN ‘INTEGER! 





EXECUTION FORTRAN "2 





222 
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Lf the format speci 
program Lh E 
like this: 





cation IS had been used in the 
R, the results would have been printed out 






229 


WRITE and FORMAT can be used to print out more than 
one value at a time by Seperating the FORMAT specifications 
by commas and matching them to the variable list on the 
WRITE statement. The Program 


SQUARES 
1g | . FORMAT (17,F19.3) 
FULL=3.68*2.9 0 - 


IMFULL=4**2 rig 
WRITE (3,19) IMFULL ; PULL 
STOP : 
END 
causes the following printout when executed. . 


EXECUTE 


LOADING FORTRAN "SQUARES! 





EXECUTION FORTRAN ‘SQUARES! 
Re 


16 9.968 5 
———— OD 
EXECUTION COMPLETED 
TED 


The first variable, IMFULL is printed using the I7 
Specification, The value of IMFULL appears in the two left 
most spaces of that field with the first five spaces 
filled with blanks. FULL, the second variable in the list, 
is printed through the second specificaion, F1g.3, Its 
value appears in spaces 8 through 17 of the line, Note 
that the mode of the variable and the mode of the FORMAT 
specification are carefully matched. If the program had 
been written as follows, it woulda not have run. 
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EXEC 


LOADING FORTRAN 'SQUARES' 





EXECUTION FORTRAN 'SQUARES? 





WRITE (3,19) IMPULL PULL 
{ MIXED MODE Titi 














This is clearly not the desired output, 


To print headings, titles, or mes 


Sages, the user simply 
encloses 


the desired text in apostrophes and puts 
i he FORMAT specifi- 

cations. For example, "1g FORMAT (' HOWwpy')" - 
will cause the word HOWDY to be printed out on the 
teleprinter when it is referenced by a WRITE statement. 
" HOWDY' is called a literal field, If you are on 
@ HP 2989c or 209 9F computer, you should leave the first 

i ing a blank space; OMSI 
29G6C/F FORTRAN uses this character to specify carriage 
control, A blank will cause normal, Single Spacing. 
For more information On carriage control, see the 
2928C/F section of the OMSI 2999 FORTRAN manual, 
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A simple example of the use of a literal field 
is the progcan HADER, 


HEADER 
lg 





FORMAT (1 THIS IS A SAMPLE oF A LITERAL FIELD") 
(3,19) 


If HEADER is executed, the following is printed out, 
SEX 


LOADING FORTRAN 'HEADER!? 





EXECUTION FORTRAN ‘HEADER! 
EE _EADERS 


THIS IS A SAMPLE oF A LITERAL FIELD 





EXECUTION COMPLETED 
a EELETTED 


Note that there ig no variable list on the 
WRITE statement in HEADER, since no numeric values 
can be printed out through a, literal field. 


that the Output is identified, 


SQUARES 
lg FORMAT (' FOUR SQUARED =',17," THREE SQUARED=',F19.3) 
FULL=3.g**2. 9 
IMFULL=4**2 
WRITE (3,19) IMFULL, FULL 
STOP 





END 
Now, when SQUARES is executed, the output is: 
BX . 
LOADING FORTRAN "SQUARES! 
EEN _USQUARES | 


EXECUTION FORTRAN "SQUARES! 
RUARES TD 


EXECUTION COMPLETED 
EE LED 
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Note that in SQUARES the fi 
printed out using the first numeric sp on in 
the list, and the modes of the variables and the 
specifications are again carefully matched. 

More than one FORMAT statement can be used 
in a FORTRAN program. Changing SQUARES to have 
two FORMAT statements (and two WRITE statements) 
changes the print out. 






SQUARES 
1g FORMAT (' FOUR SUARED=",17) 
28 FORMAT (' THREE SQUARED=',F19.3) 


FULL=3.0**2.9 
IMPULL=4**2 

WRITE (3,28) FULL 
WRITE (3,19) IMFULL 
STOP 

END 


2X 


LOADING FORTRAN 'SQUARES' 





EXECUTION FORTRAN 'SQUARES' 





THREE SQUARED= 9.888 
FOUR SQUARE 16 





EXECUTION COMPLETED 


One of the rules for FORTRAN program con- 
struction was that all FORMAT statements must occux 
at the first of a program. This rule can now be 


“explained. A FORMAT statement is not a direct in- 


strucion to the computer; it must be referenced by 
another statement. For this reason it is called a 
non-executable statement. All the other statements 
discussed so far have been “executable" statements. 
A FORMAT statement, not being a direct instruction 
to the computer cannot occur in middle of a group 
of “executable” statements. If a FORMAT statement 
did occur there the computer would not know what to 
do with it. For that reason,.all non-executable state- 
ments (FORMAT is the only one so far) must be first 
in a FORTRAN program. Execution begins at the first 
executable statement. 

As the reader can clearly see, there re many 
ways to FORMAT any single output. It is the pro- 
grammer's job to make output precise and clear. 





no) 


a) 


b) 


c) 


2) 
the 


a) 
c) 
e) 


3) 


EXER 





SSES 1,5 


What will the following programs print out when they are run? 
Run one and test yourself, 
POUTPUT1? 


1g AND',I3,' IS',Z4) 





JOGGER=IMP+INK 

WRITE (3,18) IMP,INK 1JOGGER 
STOP 

END 


POUTPUT 2? 


ig FORMAT (F6.1,F6.2,F6.3,I5) 


ALPHA=173.7 

BETA=1.11 

GAMMA=ALPHA*BETA 
ICK=2099+299+29+2 

WRITE (3,19) ALPHA,BETA, GAMMA , TICK 
STOP 

END 





2OUTPUT3? 

158 FORMAT (I5,15,I19) 
INK=1g19 a 
IMP=2929 : 
IBOBO=INK* IMP 
WRITE (3,158) INK,IMP,IBOBO 
STOP 
END 


Write FORMAT specifications that will print.out 
following lines (# means a digit). 





Hues ee b) FOUR TIMES FIVE = die 
a) feted. /5 = #4 at 
PLUS ## = £) HowDy!!! 





Write a program which will identify and print out 
the sum, difference, product and quotient of 5.75 
and 8.58. Check your program by running it. 


2g 





4) 


5) 


a) 


b) 


Write a program that will tell the number of ounces 
in a number of gallons of liquid. The variable 
IGAL should be set to be the number of gallons of 
liquid, and have the program print out the number 
of gallons and ounces and identify both. 

(Hint: 1 gallon = 8 pints, and 1 pint = 16 ounces) 





Debug these programs: 


FIXITL 

1g FORMAT (I5,F7.2) 
JOG=35*7 
ZILCH=63.8/9.8+1559.4 
WRITE (3,19) ZILCH,JOG 
STOP 
END 


FIXIT2 
1g FORMAT (F7,17.9,' ARE THE ANSWERS.) 
: INDIA=191*22 

AFGAN=37,. 2+98/.55 

WRITE (3,19) INDIA,AFGAN 

STOP 

END 


2a 


READ 


Until now, all variables have 
ment statement. This method works 
to be xr itten for each different of data, Using a 
READ statement, the user can give different values to variables 
while the program is running, 

READ statements, like WRITE statements, must use a 
FORMAT statement. The FORMAT with a WRITE statement 

| specifies what will be printed in every space of the 
line of output, With READ statements, the FORMAT specifies 
what is to be found in each space of a line of data. 

The READ statements has two forms. Data can either 
be stored at the end of the program (after the END state- 
ment) or may be typed in when the READ is executed. Hence 
there are two device codes for READ. A statement like: 





mn defined by an assign- 
ne, but the program has 








READ (1,19) IVALUE 


has device code "1", This code means that input from the 
teleprinter will be used to get a value for IVALUE. The line: 


READ (2,18) SPUD 


has device code "2". 
from data stored at the end of the program. Liké WRITE, lists 
of variables may be used ima READ, 

The format specifications used with a READ. are the same as 
those used with a WRITE. Floating point (real) variables still 
“xequire F specifications, and Integer variables require I 
formatting. FORMAT specifications now describe the field where 


the value of the matching READ variable is to be found.:° The 
FORMAT 


1g FORMAT (F18.3,17) 
specifies that in the first ten spaces one floating point 
value will be found, and in the next seven spaces, one integer 
value will be found, Matching this FORMAT to 

READ (1,18) SPUD,IDAHO 
will store the first value (which is real) in SPUD; and the 
second value (which is an integer) in IDAHO, With device code 


1, these values will be taken from a line of input data taken 
from the teleprinter. 
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This code is means a value for SPUD will be 


read 


3 





The program SIMPLE can be modified using the READ statment 
so that it will add any two numbers. 





SIMPLES 

1g FORMAT (F7.2,F7.2) 

2g PORMMINGH He 2y0 ce, E eae roe) 

BAD (1,18) VALUL,VALU2 
=VALU1+VALU2 

WRITE (3,298) VALUL,VALU2,TOTAL 
STOP 
END 


The program is now designed to get 
add them, and print out their sum, 
the computer prints the following: 


two values from the teleprinter, 
When the program is run, 


- EXECUTE 


LOADING FORTRAN 'SIMPLES?! 





EXECUTION FORTRAN 'SIMPLE5' 
* 


The asterisk indicates.that the program is ready to accept 
input data through a READ statement, The input data must match 
the FORMAT specifications, so the value of VALU1 must be in the 
first seven spaces, and the value of VALU2 must be in spaces 


-eight through fourteen. Two important points must be remem- 


bered for these data lines, First, any spaces are treated like 
zeroes. Secondly, the decimal point can occur anywhere in the 
field, but it must occur somewhere, 


if the program is to add 7.9 and 14.f, the input data line 


must have 7, in the first seven spaces, and 14. in the second seven 
spaces, like this: 


*PGG87. 99814. 6 
7.99% 14,09= 21.99 
EXECUTION COMPLETED if 


or, the data line '§97.9999914.¢9' could be use@ just as well. 
If the progam is to be changed to use program data, it would 
look like this: 
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oy 









1E7.2,'=",P8.2) 











The data to be read by the program is now stored after 
the END statement. The results are the same: 


EXECUTE 


LOADING FORTRAN 'SIMPLE6' 





EXECUTION FORTRAN 'SIMPLE6' 
7.9G+ 14.99= 21.92 


EXECUTION COMPLETED 


To READ integer variables, the I format is used. Again, 
spaces are regarded as zeroes, so the user must be careful 
in positioning the number in the field. Suppose the following 
FORMAT statement was being used to read in values for the 
integer variables Jl and J2: 


1g FORMAT (16,15) 


If the user wanted Jl and J2 to have values 16 and 8, 
then the data line would have to be: 


EPSI1699 998 


respectively, 


The number in the I6 field is $#PP16 or 16; 
I5 field is 9PGPf8, or 8. 

If the data line "@9S9169998" was used, the program might 
malfunction, The number in the I6 field is "@P#f16", or 16, 
but the number in the I5 field is "(998 ", or "*gs8G which 
is 88, not 8. A good way to avoid this is to use zeroes to fill 
in data lines, If you are on a 26998 or 28f89E, you must. uses zeroes 
to fill in blank spaces, since all leading spaces are deleted. 


the number in the 
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EXERCISES 1.6 


Write correct input data lines for each of the following 
programs, and then tell what the computer's 
output will be. Run one of them to test yourself. 


INPUT1? 

1g FORMAT (I7,17,17) 

28 FORMAT (' THE SUM OF YOUR THREE NUMBERS IS',18) 
READ (1,18) INP1,INP2,INP3 
INPTOT=INP1L+INP2+INP3 
WRITE (3,28) INPTOT 
STOP 
END 


INPUT2? 
1g FORMAT (F19.3,F19.3) 
28 FORMAT (' THE QUOTIENT OF YOUR TWO NUMBERS IS',F11.5) 
. READ (1,19) DIVEND,DIVISO 
QUOTIT=DIVEND/DIVISO 
WRITE (3,29) QUOTIT 
STOP 
END 


INPUT3 A; 

1g FORMAT (16,18,F19.3,F12,6) 

2g FORMAT (I12,F12.5) 
READ (1,19) KIPP1,KIPP2,FISH1,FISH2 
KIPPER=KIPP1-KIPP1/KIPP2*KIPP2 
FISHER=FISH1-FISH1/FISH2*FISH2 
WRITE (3,28) KIPPER,FISHER 
STOP 
END 


Test another of your data lines from the first 
problem by inserting it as program data and 
changing the device code to read data, 


Write data lines which when used with the given READ- 
FORMAT statements will set the variabls FROG, ICEPIK and 
SAM to the values 1.%, 193%, and 134.45, respectively. 


1g FORMAT (F6.2,I119,F5.1) 
READ (2,1) SAM,ICEPIK,FROG 


299 FORMAT (15,P4.9,F19.3) 
READ (2,298) ICEPIK,FROG,SAM 


895 FORMAT (F19.3,F7.3,118) 
READ (2,895) FROG,SAM,ICEPIK 


Write a program to find the quotient and remainder 
of two values input from the terminal, 
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CONTROL STATEMENTS 


; Control statements are instructions that cause the computer 

~< to skip or repeat other sections of the program. . They “transfer 
control" to another part of the program. All control statements | 
reference other lines by their line numbers, If a statment doew?not 
have a line number, it cannot be referenced The simplest control 












Statement is GO TO. It has the form "GO TO i", where 
is the line number of another statement in the Program. When the 
computer reaches a ” GO) TO 232" stat 





ment, instead of doing 
the ‘next line after the GO TO 232 statement, it starts doing the 
statement with line number 232, and works the Program from there. 
A simple program will show how this works. 


TRANSFER 
1g FORMAT (' JIMMY CAN') 
A) FORMAT (' NOT') 


29 FORMAT (' RUN') 
WRITE (3,19) 
WRITE (3,15) 
WRITE (3, 28) 
STOP 

“END 


ib 


When the program is run, the computer types out: 


JIMMY CAN : 





However, if a GO TO statement is inserted, the results are 
quite different: 


TRANSFER 
ig FORMAT (' JIMMY CAN') 
AGS FORMAT (' NOT") 


2g FORMAT (' RUN') 
WRITE (3,1) 
GOTO 4 
WRITE (3,15) 

4 WRITE (3,29) 
STOP 
END 


Now, when the program is run, the output is: 





JIMMY CAN 





93 


The GO TO 4 statement caused the computer to skip over 
the WRITE (3,15) statement, and the program no longer 
executes this statement. 

The GO TO statement is often used to cause the computer 
to repeat a portion of the program. If the user wanted the 
computer to print out the first 25 squares, he could write: 
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wees 


SQUARES. 
1g FORMAT (I3' SQUARED =',1I1f) 







18k 
E(3,1g) 1,12 





SLAs 
T2=T1 
WRITE (3,18) I1,1I2 
Il=4 
mal ye) 
susp) 
else) 





WRITE (3,18) I1,I2 ; : ae 
I1=8 : 

T2=T1**2 

WRITE (3,28) I1,I2 


and so on, until I1=25, and then 


STOP 
END 


Using a GO TO statement, a much shorter program can be used, 
xepeating the statements that are the same on each group, a program 





like: 

SQUARED 

ig FORMAT (I3,." SQUARED =",119) 
T1l=s 

2g 1+1 
L2=L1**2 
WRITE (3,19) 11,12 ‘ 
GOTO 28 
STOP 
END 


This program is much shorter and it will print out as many 
squares as the user wants, In fact, it will continue to 
print squares until someone “unplugs" the computer. This 
program will never reach the STOP Statement, so it will never 
stop itself. The only way to stop this Program is 

to press the 'BREAK' button, and then GET-FORTRN and start 
over. 


Cail 


r™ 


cy 


VJ 





allow limited repeti n Of parts of a progrz 
statement used. The GoTo ratement: is an uncond 
transfer, since it will always transfer control to the line 
xeferenced. IF is a conditional transfer which GOes T0 different 
parts of the program depending upon the value of ‘an expression 
which the IF statement contains, IF Statements look like this: 





i 





IF(ALPHA-1.9) 19,29,3¢ 
In general the form is 
EF (<expréssion>) ##1,##2,843 


The expression is enclosed in parentheses and followed by three 
line numbers which are separated by commas. If the value of 
<expression> is less than zero, control is transfered to the first 
line number (##1). I£ the value of <expression> is zero, control 
is transfered to the second line number (##2), and if the value is 
greater than zero, control is transfered to the third line number Git: 
This is easier to understand when seen in a program, 


18... FORMAT (PF18.3) 
22 FORMAT (' VALUE IS NEGATIVE") 


38 | -FORMAT(' VALUE IS ZERO') 
49 FORMAT (' VALUE IS POSITIVE') 
58 | READ(1,18) VALUE ot) ere 


IF(VALUE) 199,299,399 
1gG WRITE(3,2) 

GOTO 5% 
228 WRITE (3,32) 

STOP 
328.. WRITE(3,49) 

GOTO 59 

END 


This program will return the sign of a number read 
from teleprinter input until the user types a zero, after which 
it will stop. This way a large number of pieces of data 
can be processed without the program infinite looping. 

The program SQUARES can also be modified using an IF 
statement so that it will stop by itself. If the first 25; 
squares are wanted the the variable Il should not be greater 
than 25 which means that I1-25 must always be less than zero. 
Using this, the program could be written: - 


SQUARES 
1g FORMAT (I3,' SQUARED =',I19) 
Ils : 


2g at 





WRITE (3,19) I1,12 

IF (I1+25) 29,39,39 
3g STOP 

END 


When this program is run, the desired table of squares is printed. 





EXERCISES 1.7 





What will be the output from the following 
xograms. Run one to test your answers, 
JUMP 

1g FORMAT (' COMPUTER aT LINE 1397) 

2g FORMAT (' COMPUTER AT LINE 15g") 

38 FORMAT (' COMPUTER Is ABOUT TO STOP, ') 
138 WRITE (3,19) 

: GOTO 179 


158 WRITE (3,29) 
17g WRITE (3,32) 
STOP 
END 


1g FORMAT (13) 
28 FORMAT (I3,? IS EVEN') 
39 FORMAT (I3,' IS OpD') 
15) READ (1,19) Iput 
IF(IPUT) 25,79,25 
25 IF (IPUT—2* (IPUT/2)) 52,48,59 
4g WRITE (3,2) IpuT 


GOTO 15 
5g WRITE (3,38) Iput 

GOTO 15 Gi be 
78 STOP , 

END 
TABLES 
lg FORMAT (' TABLE OF FOURTH POWERS ') 
2g FORMAT (? x x4 ') 
3g FORMAT (I4,' Layaeyp) 

Tl=g 


WRITE (3,19) 
WRITE (3,22) 
1g8 IF (I1-25) 122,129,139 
128 9 I1=11+1 
T4=I1s*4 
WRITE (3,39) 11,14 
GOTO 199 
138 stop 
END 


29 


2) 


3) 


4) 






insert an IF statement in the following program 
so that it will tell the user he is trying to 
divide by zero, and then stop. Run this modified 
program to see if it works. 


22 FORMAT (F15.6) 


3g FORMAT (' DIVISION BY ZERO') 
49 READ (1,1) DIV1,DIV2 
45 DIV3=DIV1/DIV2 
WRITE (3,2%) DIV3 
GOTO 4g 
52 WRITE (3,38) 
STOP 
END 


Write a program patterened after TABLE4 (problem 1c) 


to print out a table of the first 15 integers and their 
cubes. 


Write a program to tell whether a number isa multiple 
of five. The number should be read from the teleprinter 
and if this number is zero, the Program should stop. 


3g 


¢ Ld 


DO LOOPS 


In the last section, the IF statement was used to 
"LOOP" through a segment of the Program SQUARES. The 
DO statement is used to loop through segments of programs 
in a similar manner. Using a DO statement, the program 
SQUARES would look like this: 





SQUARES 
1g FORMAT (I3,"' SQUARED =',I19) 
{DONS C0 fi—1,25),1! 
L2=I1**2 


WRITE (3,19) I1,12 
3g CONTINUE 

STOP 

END 


The DO statement in this program works like this: the 
computer works down the program in its normal fashion, then 
when it executes the statement ” DONS UPL), 25 amare 
sets the variable Il equal to 1. The statement "I2=11%*2" is 
executed, then statements below it until line number 38 is 
executed, After the computer has executed line 39, it adds 
1 to the variable Il, and then checks to see if Il is greater 
than 25. If Il.is not greater than 25, 
start working down from the statement after the DO, until 
it reaches the line numbered 39, when it will make the same 
test again. When Il is 25, after the computer executes 
statement 39, it adds 1 to Il, making Il equal 26. I1 is now 
greater than 25, so it will not jump back to the statement after. 
the DO, but will just keep working down the program, executing the 
STOP statment. 


In general, a DO statement has the form: 


DO ##2 <ivar>=<initial> ,<ifinal>,<istep> 

ue is the number of the last statement of the segment 
of the program which is being looped. This. statement can be any 
executable statement except a GOTO, IF, or another DO 
statement. The CONTINUE statement is often used for this purpose, 
as the computer does nothing when it executes it. For this 
reason, it is used to place the number "#4" in the program. 
If control passes out of this segment of the program, the 
loop is discontinued. 

In the general form, <ivar> must be an integer variable. 
When the DO statement is executed, <ivar> is set to the 
value of <initial>, which is an integer constant (like 1, as 
in the program SQUARES) or an integer variable (such as 
ICEPIK). <ifinal>, and <istep> can also be either integer 


the computer will go back and 


von 





constants or variables, Each time the computer jumps from 

the bottom of the loop to the top, the value of <ivar> will 

be incremented, that is, the <istep> Specif d in the DO 

Statement will be added to <ivar>. If the <istep> is not 

Ss fled, a value of 1 will be used. This series of actions 

continues until <ivar> is greater than the value <ifinal> which 

was specified in the DO statement. When <ivar> is greater 

than <ifinal>, control is passed out of the loop, and normal 

execution resumes. 
Some examples of DO statements used in programs will 

help make this a little clearer. 






LIST 
COUNTL 
1p FORMAT (13) 


DO 20 I=2,29,2° 








FORTRAN 'COUNTI1' 


EXECUTION FORTRAN 'COUNT1' 


EXECUTION COMPLETED 


After the loop is finished, <ivar> is undefined. 


ST 


IZ the DO statement is changed to be 
DO 29 I=7,11 


the program will print the following: 





Using a DO loop, the following program finds how 
many positive integers must be summed to make a total 
greater than 199. 





FORMAT (' IT TAKES ',12,' INTEGERS') 
IsuM=9 ; 
DO 19g J=1,1989 
LSUM=ISUM+T 
IF (ISUM-156) 199,199,289 
198 CONTINUE : 
STOP 
29f WRITE(3,16) 3 se 
STOP 
END 
When the IF statement causes control to pass out of 
the loop, the loop is stopped. 
EXECUTE 


LOADING FORTRAN "SUMMER! 





EXECUTION FORTRAN 'SUMMER' 


IT TAKES 14 INTEGERS 


EXECUTION COMPLETED 
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Any time that a section of a Program ne 
xepeated a known number of times, a DO loop can be used, 
The following program averages grade points, and uses a 
DO loop to repeat a large portion of the Program five 
times. 


eds to be 


LIST 
DES 
FORMAT (P7.3,F7.3,F7.3,F7.3 


FO. (’ FOR STUDENT ",12," AVERAGE S773) 

























,18) GRI,GR2,GR3,GR4 
GRI+GR2+GRS7GR4) /4, 
3,29) KOUNT, AVER 
UE: ie) ano 








B53. BEGSS2. GIG0G3.g98d84. bog 
BU4 . GHGGTS. UESSI3. D9G9T4. CFG 

























$53.5 ig 
883. EG999G2. GETGG2 GOSIGL. G59 
EXECUTE 

LOADING FORTRAN 'GRADES! 





EXECUTION FORTRAN 'GRADES' -, 
—— EE 


FOR STUDENT 

















READ (2,12) GR1,GR2,GR3,GR4 
! OUT OF PROGRAM DATA f!iiit: 


Titi 
FATAL ERROR-- EXECUTION TERMINATED 

















Possibly you noticed the unusual ending of this program. 
The error message means that there was not enough data for 
the program to read. When it ran out, it notified the user 
with the !!!!!! OUT OF PROGRAM DATA !!11!! error message, 
and since this is a "FATAL ERROR", execution was halted, 
One way to correct this problem is to reload the program, 
changing the DO statement to " DO 38 KOUNT=1,4". 
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b) 


BARE RCLSHS 1.8 


List the values the variable IVAL will go through 

as each of these statements is "looped", Also, tell 
what is the final line of the loop. For this exercise, 
IMPl=1, ImMP2=25, 

DO 29 IVAL=1,2¢ 

DO 46 IVAL=IMP1,IMP2 
DO 198 IVAL=19,28,2 

DO 77 IVAL=19,299,1mpP2 





What will each of the following programs do? Write the 
Sample output for. the sample input, if given, 


LOOP1 
1g FORMAT (' IDAHO: FAMOUS POTATOES) 
DO 15 I=1,7,1 
WRITE (3,12) 
15 CONTINUE 
STOP 
END 


LOOP 2 
1gg  FORMAT(ZI3) 
298 = FORMAT(I3,' *",13,'=',76) 
READ (1,199) 1st Er 
DO 389 IMUL=1,19 D 
IPROD=IST*IMUL 
WRITE (3,28) ISt,IMUL,IPROD 
399 CONTINUE 
STOP 
END 


Sample input: 994 


3a) Change LOOP1 (problem 2a) to print out FAMOUS TATERS-- 


b) 


4) 


5) 
6) 


IDAHO, six times. 


Change LOOP2 (problem 2b) to print out the product of 
the inputted value of all even integers less than 25, 


In mathematics, 12! is read twelve factorial. 12 fact 
Orial is defined as LS2* 3% 445% 6% 7% Bx OR 1GR1IEI2, Write 
and run a program to find the factorial of an inputted 
value. 





Write a program to print a table o£ the first 12 factorials. 


Write a program to see if an inputted integer value is 
a perfect cube, using a DO loop. 
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EDULING 


As you have probably already di covered, errors 
e@ a common problem in computer programming. If you 
€ just beginning to program, you can be reassured by 
the fact that even professional programmers have these 
same kinds of problems. But as your programs get 
longer, it takes more and more time to retype them 
every time you find an error. For this reason, OMSI 
29098 FORTRAN has a series of editing commands which 
allow the programmer to change his Program one line 
at a time. These commands are all used from the 
monitor. 

All ONSI 2999 FORTRAN editing commands reference 

lines by special 'sequencing numbers', The command 
LN will cause the monitor to list the current program 
with these numbers. 

















-LN 

(1) SIMPLE 

(ae FORMAT (F1g.4) 
(Ges) TOPAL=2.9+2.9 

(Be 5) WRITE (3,728) TOTAL 
aes). STOP 

(G3) END 


The numbers enclosed in parantheses are the sequencing 
numbers. They are not part of the statement, they are just 
for convenience in editing, THEY ARE NOT LINE NUMBERS. 
Note that the name of the program is considered the first 
line. 

The editing command that is the most useful in 
correcting your error-laden program is the CHANGE 
command. This command is used to replace a single 
line in the user's FORTRAN program with a new line, P 
without altering the rest of the program. The general 
form of the CHANGE command is ##4C-text. The ‘eee! 
stands for the sequencing number of the line to be 
changed, and ‘text' is what the line is to be changed 
to, For example, the program SIMPLE can be changed to 
add 3.§ and 3.8 by a single editing command, instead 
of reloading it, ‘ 
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LN 
€_1) SIMPLE 
(CD eaiiiee a 
a) 

Oyeay 
5) 


3C=I° TOTA, 
LN 
{_1) SIMPLE 

a a FORMAT (F1g.4) 












(3,16) “Loran 























(RE!) TOTAL=3. 043.9 

(aes) WRITE (3,19) TOTAL 
(Eh) SOP 

(TS) END 


Notice that the entire line was changed, so 

it was neccessary to use the control I to tab over 
to the seventh column. If the statement were to have a line 
number, it would have to be in the first six spaces 
of the new line. : 

The DELETE command allows the removal of single lines 
of text form the current, FORTRAN program. It has the 
form D. It will delete the sequence line '###' from 
the program. -The sequence number is always the number of 
the line, counting down from the name. When a line is 
deleted, the numbering on the rest of the program is 
changed. This should be-kept in mind when using a series 
of editing commands. As an example of the DELETE command, 
an unwanted STOP statement can be removed from the fol~ 
lowing program. 

















-LN 

Cn iCow : 

(ee ay FORMAT (' THE OREGON DAIRY COUNCIL') 
CSS na FORMAT (" KEEPING THE COWS HAPPY!!*) 
(ea WRITE (3,19) aaa 
(eS) STOP 

(ES) WRITE (3, 29) 

( ; 

( 






THE OREGON DAIRY COUNCIL") 
COWS HAPPY!I1') 
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Yo insert lines in to the current program, there 
3 the INSERT command, ‘This allows 








the user to 
fF addtional lines in the middle of his program, 
hout reloading it. This command has the form 

in Gaeengarn. ° is a sequence number, here 
specifying that tt ‘ is to be inserted as 
the line before ' INSERT also changes the 
sequence numbers of all the statements that follow 
it in the program. As an example of this command, 
it will be used to insert lines to have the following 
program print a heading. 

































.LN 
(1) SQUARE 
(Gee sea FORMAT (13,178) 
ans) DO 38 t=1,17 — 
(iz) ISQUAR=1**2 
(GES). WRITE (3,19) L,ISQUAR 
(Gls) Sas8 CONTINUE 
(a) STOP 
8) END 


31-281" FORMAT ' TABLE OF SQUARES FROM 1 TO 1g*) 
- LN 
(_1) SQUARE 























mse. FORMAT (* TABLE OF SQUARES FROM 1 TO 1f') 
CD) DO 39 I=1,19 > 

eS) ISQUAR=2**2 

(CTS) WRITE (3,18) 1I,ISQUAR 

ne aan CONTINUE 

(ie) STOP 

C_9) END 





(Gara ei FORMAT (13,18) 














3) 29g FORMAT (' TABLE OF SQUARES FROM 1 TO 18°) 
4) WRITE (3,28) 

Sy) DO 36 I=1,19g 

6) ISQUAR=1I**2 





STS (oplo). 1, 1S0UAR 
TINUE 

5 STOP 

If) END 
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(12) 852. E0554. 9 


The insert command allows you to insert t 
before a line ready in the program. To ing t t& 
at the end of the program, the APPEND command is used. 
It has form A-text. The text will be made the final line 
in the program. As an example, in the last section, the 
program GRADES needed an additional line of data to run 
correctly. Whis can be added with the append command. 







































-LN 

ee) RADES 

(2) E03 EV), Bus) 
(es) i FOR STUDENT 12," AVERAGE =! Bigs ch) 
(z9) DO 38 KOUNT=I,5 

es) READ (2,19) GR1,GR2,GR3,GR4 
eG) AVER= (GR1+GR2+GR3+GR4) /4.6 
a7) WRITE (3,29) KOUNT ,AVER 
(SE CONTINUE 

(RD) STOP 

(lO) END 

(11) G3 GGTTG2 . §0H9G3 .9sd0G4 999 








{ jS3. GOGTTA. BUS 

(713) 993. G5 9992. 899003 07053. 008 

14) 893. G5 9502.e90092.c55501. 600 

SA-GES. PGGGT4. SSVET2 .GUGGTS SOT 

¢ : 
1) GRADES . 

2) 1g FORMAT (F7.3,F7.3,F7.3,F7.3) 

3) 20 FORMAT (" FOR STUDENT *,12," AVERAGE =! BOUSS)) 

4) DO 39 K 
BAD (2,16) 






































AJA) AAJ JA]-]° 
a a 
uy 











(14) 
(15) 








The program now has the correct amount of 
and will run without the 'OUT OF PROGRAM DATA’ e On. 
This is the general purpose of these commands, to allow 
fast and easy debugging. And if you are not careful, they 
let you make your mistakes faster too. 
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MORE ABOUY PornaAT 


So far, three format specificaions, PEUN 5 Nelidurpamrentcucl 1388 
have been introduced. There are three more, "BE", "X", and ae, 
available. There is also an easy way to repeat a single 
specification, 

Yo generate linefeeds (move the paper up one line), the 
"7* is used. A / can be placed at the first of FORMAT line 
= PORMAT(//' THIS IS A TEST') - or at the end of a FORMAT 
line - FORMAT(' THIS Is ANOTHER TEST'///) = ox between 
other specifcations in place of a comma - FORMAT (//13//I5/) . 

- To show how this works, try running this program 








LINEFEEDER ; 
ee ay FORMAT (//! LINEFEEDS'//! MORE LINEFEEDS'//) 
: WRITE (3,12) 

STOP 

END 


X formatting is simple. If an "Xx" is found ina 
FORMAT statement, a blank space is printed. For example, 
EEGs FORMAT (14,X,13) used to print 1234 ana 567 would | 
look like "1234 567". How to get more than one space at a 
time will be explained a little later, 

E formatting is more complicated. It is used with 
floating point values and prints them out in scientific 
notation, 234567.8 would be-written as "2.345678E+G5". The 
expontent is 95, indicating that the whole value should: be 
multiplied by ten to fifth power. The general form of the 

Ad " E specification is "Ew.a", "w" is the width of the 
a) field in which the number will be printed and "a" is the 
number of digits after the decimal point. "E12.4" will reserve 
a field twelve spaces wide, with four digits after 
the decimal point (### wEt+#?). To show this more 
clearly, SIMPLE can be Modifed to use E format. 








SIMPLE7 

1g FORMAT (E12.5) 
TOTAL=2.9+5.9 
WRITE (3,19) TOTAL 
STOP 
END 


EXEC 


LOADING FORTRAN _'SIMPLE7': 





EXECUTION FORTRAN 'SIMPLE7! 





+7. SOOM SE+ ES 





EXECUTION COMPL 
See eee 





© formatting is useful for outputting extremely 
large numbers. When using the E Specification, s 
must be reserved for the exponent as well as the decimal 
point and the sign, 

DOMPepedigano il, EF, X, lorek specification, an 
integer (called a replicator) is placed in front of 
the letter and then thi specification will be repeated 








that many times. "413" is the same as Mash: deb yime arabe 
"19 FORMAT (2F5,2,3X,316)" will cause the same output 
as "19 FORMAT (F5.2,F5.2,X,X%,X,16,16,16)". The use 


of a replicator allows long strings of Specifications to 
be written in a much shorter manner, 

The 'literal field' ana x formatting are primarily 
for ouput, but they can occur in a FORMAT statement refer- 
enced by a READ. If they do, the fiela they cover is 
skipped over and no values are READ from it, To Clarify 
this, suppose these statements were part of a program 


1g FORMAT (I3,X,I4) 
READ (2,19) INL, IN2 

- END 
12345678 


When the READ statement is executed; it will read INl Exom 
the first three spaces of the data line, then skip one space, 
and read IN2 from spaces five through eight. This will set 
INL to 123 and IN2 to 5678. The same thing would have occurred 
if there had been a one character long literal field instead 
of the X. 
Formatting output is something of an art, and 
it requires practice. A program is worthless if its 
output cannot be read, 
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PROGRAMMING PROBLEMS 
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Programming Problems 


All of the problems in this section can be solved 
ograms using only the parts of FORTRAN presented 

t section; however, many of them can be solved 
easier using some of the additional parts of 
explained in the third section (Addi 
26890 FORTRAN). 










jilonal. Features 


1) Write a FORTRAN program to find the greatest 
common factor of two two-digit integers. Values 
should be read from the teleprinter, 


2) Write a program to reduce fractions to their simplest 
form. That is, if #2 was input as the numerator 
and §4 input as the demoninator, the computer 
would print out " 2/ 4= 1/ 2" 


3) Write a program to add two fractions, reduce their 
sum, and print the result out in fractional form. 
Sample output might be " 1/ 6+ 1/ 2= 2/ 3" 


4) Write a program to test if a number is. prime. 


5) Write a program to find the first 25 prime numbers. 

6) Earning 5% interest compounded quarterly, how long 
will it take for a 2f dollar investment to grow to 
over 198 dollars if all interest is reinvested. 


7) ‘The tire on a 1971 gray-green Ford Pinto has a 


Gianeter of 16.5 inches. How many times will this 
tire revolve on a 4f mile trip? 


8) Write a program to find the least common multiple- 
of two input integers. 


9) Write a program to convert a number of seconds 
into a number of days, hours, minutes, and seconds, 
For example 199928 seconds= 1 day 3 hours 46 min- 
utes and 49 seconds, 3 

18) The value of a new car decreases by about 2%% per 
year. Design and run a program that will print a 
table of the car's value every year between the year 
of purchase and 1975. 4 
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11) Binary is base two. All numbers 


es and ones for digits, 





in binary have 
Write 








iter/nole~dagy (the gas constant) 
and T=tomp 2 in degre absolute 

write a FORTRAN program that find the change in pressure 
as the temperature goes from 278 to 359 degrees in steps 
of 19. Assume a 3f liter volume and 1.5 moles of gas 
molecules, 








13) Using the formula 
2AgNO, + CaCls-> Catt + 2NOZ + 2AgCl 
find the amount of AgCl produced for a given amount 
of AgNO3 and CaCl2. All amounts are in moles, 
Assume the proportionally smaller amount will 
limit the yield, 


14) Given that the acceleration due to’ gravity is 
-18.98 meters/sec-sec, print a table of the heighth 
of a projectile fired Straight up at an input 

“ velocity. Use two second intervals, and stop the 
table when the projectile strikes the ground. Use 
the formula d=v,ttjat?. 


15). Inputting the angle from horizontal and the velocity 
determine the distance from the target the projectile 
will strike the ground, ‘ 


16) Write a cash register program. The clerk using the 
register gets a 19% commission for all sales. She 
uses the following codes 


% = Stop and print out total Sales and her 
commissions, 

1 = Write up a sale 

2 = Write up a refund 


She gets commissions on all sales and she is not docked 
for refunds. After she types 1 or 2 she will input the 
value of the sale or refund, 


17) Given the time of day on a 24 hour clock and the 
number of time zones away a given city is, print 
out the time in that city. Include + or — Udavine at 
appropriate. Ignore the international date line, 
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The square root of a number S can be approximated 
using the following formula 
2 
ve SRI 
Aig = - QL 
2x; 
Where X is an approximation of the square root of 


S. Write a FORTRAN program to find the square 
root of an input value to within .91% error. 


Do not use the SQRT function. 


The sine of an angle can be found using the 
series 


¥ = 3 

DO iG BS x 
ERM OSG) ea ree Oa EC 
(ee Fp ey a 


where x is an angle in radians. Remembering that 
sin(x)* +cos (x)* =1, approximate the sine and cosine 


of the angles 2, 1f, 2, 38, 48, 58, 68, 78, 8%, and 
28 degrees. 





Write a FORTRAN program to solve first degree simul- 
taneous equations of two variables. 


> 
ul 


SaeG ule LON, poet eRe tabs 
MORE ABOUT FORTRAN 


for the 2¢99C/F version 








The par of the FORTRAN Language discussed in this 
stion are available only on the 2B60C/P version of 
OMSI 2899 PORTRAN. If you are not certain which version 
you are on, check to sce if the monitor prints a question 

Mark after every period. If it does, you are using the 

2889B/E version and the statements described in this section 
are not available. If there is not a question mark after every 
period, you are the 2$$0C/F version and this section contains 
information that you will find handy in writing FORTRAN pro- 
grams. 


se 








LOGICAL IF STATEMENTS 


The IF statements discussed earlier in this book were 
always of the form IF (<exp>) <line#>,<lined>,<line#>. These 
are called "multibranch IF" statements, OMSI 2999C/F FORTRAN 
has another type of IF statement called the "logical IF." 

All logical IF's have the form 


IF (<logical expression>) <executable statement> 


For example: 


IF (ALPHA) GOTO 19 
IF (ALPHA-19. 9) WRITE (3,199) ALPHA, BETA 

The logical IF bases its decision on the "truth" of the 
expression. If the expression is "true", then the executable 
statement is executed, and then the program continues. If the 
expression is "false"the executable statement is ignored and the 
the next line is executed. The computer decides whether the 
expression is true or not depending on its value. I£ the value 
is zero, the expression is false. If the value is not zero, it 
“true”. 

Using logical IFs can make a program much shorter 
as well as increasing the effeciency of the program. 
The program TENPOWER uses multibranch IFs to tell whether 
a number is a multiple of ten or not, 





MULTIPLE OF TEN') 
D(1,199) IVAL 

IF (IVAL) 375,929,375 
375 WRITE (3,298) IVAL 

IF (IVAL-IVAL/12* 19) 458,599,459 
459 WRITE (3,394) 
588 WRITE (3,499) 

GOTO 359 
9868 STOP 

EN 
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VENPOWER could easily be rewritten to use logical 
If statements to yield the same results, As you read 
the program note the use of carriage control. 





TENPOWER 

1gg FOR 

290 FORMAT cES aes) 
3ng FORMAT ('N Mw) 





498 FORMAT(' A MULTIPLE OF TEN!) 
358 READ(1,10¢) IvaL 
IF (IVAL)GOTO 375 
STOP 
375 WRITE (3, 299) IVAL 
4 IF (IVAL-IVAL/19*1f) WRITE (3, 39) 
WRITE (3,489) 
GOTO 359 
END 





Both versions print out the same results. The 
logical IF is just more convient, 

To go with the logical IF statment, a set of “ 
logical and relational Operators have been included 
in te C/F version. The xelational operators are 
used to compare two quantities. The available rela- 
tional operators are: 


-EQ. (equal toy | j 
NE. (not equal to) 

SAS (less than) 

sie (less than or equal to) 

Gis (greater than) 

GE. (greater than or equal to) 


The periods are part of the operator. To use them, they 
are inserted between the two quantities you want to 
compare. If the relation holds, it is true, and the 
entire expression is given the value l. If the relation 
does not hold, it is false and given the value zero. 

For example, "18.9.EQ.12.8" is false so it would be 
given the value zero. In a logical IF, such as 


IF (19.9.EQ.12.9) wRITE (3,199) 


the WRITE (3,19) would not be done because the expression 
is false. Logical operators are used to logically 
combine two values, that is test the "truth" of two 
values and determine the truth of the entire expression 
depending on the relation between the "truth" of the two 
values. The logical operators available are 


»AND. (both values must be true 
<cORe (either of the values is true) 
~EOR. (one or other value is true but not both) 
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If the logical relation holds, the expression is 

given a value of 1 ("true"); if the relationship does 
not hold, the expression is given a value of % ("false"). 
For example: 


1,G.AND.2.8 = 1.98 (TRUE) 
1.8.AND.8.8 = 8.4 (PALSB) 
1.9.0OR.8.9 = 1.9% (TRUE) 
1.2.EOR.9.8 = 1.8 (TRUE) 
1.f.EOR.1.9 = §.8 (FALSE) 


These operators are most useful in the ogucadl, Lb. 
Suppose a program required that if the variable ALK 
was less than zero and the variable TLK was less than 
or equal to the variable SWIPE then all three values 


were to be printed out,. the following logical IF could 
be used : 


IF ((TLK.LE.§.9) AND. (TLK.LE. SWIPE) ) WRITE (3,191) ALK, VLK, SWIPE 


These operators will work in either mode (real or integer) 
as long as the mode is consistent through out the ; 
expression, These operators are evaluated left to right, 
that is, without any parantheses, the left most logical 

or relational operator will be done first and then the next 
one across, until the end of the expression. ‘ 
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SUBSCRIPTED VARIABLES 


OMSI 29PG8C/F FORTRAN allows the use of subscripted 
variables in assigninent, Il, READ, and WRITE statements. 
To use subscripted variables, a variable must be dimen- 
sioned to be an array of values. If the variable ARRAY 
was dimensioned to 18, the computer would reserve space 
for ten values under the name ARRAY. The first value 
would. be referenced by ARRAY(1), the second by ARRAY (2), 
and so on up to ARRAY(1%). The importance of subscripting 
is that it allows programs to be shorter and more effecient, 
Suppose a program was needed to see if any two of ten 
inputted vaues were equal. Without the use on an array 
this program would be extremely long. With an array, the 
search it self can be five lines long. If the ten values 


were stored in an array called VALUE, the search segment 
might look like this 


DO 19g I=1,1¢ 

Tl=I-1 

DO 189 J=1,I1 

IF (VALUE (I) .EQ.VALUE(J))GOTO 299 
188 . CONTINUE 


Without an array, this segment would have needed over 
58 seperate IF statements, 

To use the array, it mtist- be dimensioned. For this 
purpose there is the DIMENSION statement. A DIMENSION 
statement is a non-executable statement and must be the 
very first non-executable statement in the program. Since 
non-executable statements must be at the first of a program, 
DIMENSION, if it is used, must be the very first statement 
in the program, In the DIMENSION statement, the names of the 
arrays and the number of values they are to have must be 
specified. In OMSI 2998 FORTRAN, a maximum of twelve 
seperate arrays may be dimimensioned, with a maximum of two 
hundred seperate values. Arrays can have one, two, or three 
subscripts. The rules that determine te mode of an array are 
the same as the rules for the modes of non-subscripted var- 
iables. Once a variable is used an array name, it cannot be 
used as a non-subscripted variable. . Some sample DIMENSION 
statements are e 

DIMENSION VALUE (12) 
DIMENSION ARRAY (19) ,ICZ (19,19) 
DIMENSION LUGNUT(4,4,4) ,SPEEDO(6,6) , IMP (49) 


5g 
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To show a l more about how arrays are used, the 


following program inputs ten values and tells which are 
equal. 
EQUAL 

DIMENSION VALUE (19%) , ISAME (6,2) 







1g F VP (FL. 4) 

2g r \T(' VALUE #',12,' AND VALUE #',12,' ARE EQUAL') 
po 5¢ I=1,19 

59 READ (1,19) VALUE (I) 


=o 
DO 199 I=1,18 
LTl=I-1 
DO 199 J=1,11 
IF (VALUE (I) .NE.VALUE(J))GOTO 199 
K=K+1 
ISAME (K,1)== 
ISAME (K,2)=d 
188 CONTINUE i 
DO 289 Kl=1,K 
WRITE (3,29) ISAME (K1,1) , ISAME(K1, 2) 
288 CONTINUE 
STOP 
END 





When using subscripts and arrays, there are three 
important rules to remember. ALL ARRAYS MUST BE 
DIMENSIONED. If an array is not dimension, and the 
variable later appears in the program with a subscript, 
the program will not run. The second important rule 
to remember is SUBSCRIPTS MUST NOT EXCEED THE DIMENSIONED 
SIZE. Again if this happens the program will not run. 
And thirdly, A SUBSCRIPTED VARIABLE MUST HAVE THE SAME 
NUMBER OF SUBSCRIPTS AS If WAS DIMENSONED. Using these 
rules, subscripted variables can make many programs shorter 
and more effecient, 
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AI (ctrl 2) 


AY (ctrl ¥) 
EXECUTR 


Lis? 


Ly 


#PFC-text 


geI-text 


$siD 


Antext 


OMS! 2000 B/E FORTRAN SUMMARY 


Purpose 


Accept a FORTPAN program 


Tab over line number field 


Ex 





t from load command 


Executes FORTRAN program 


Print text of program 


Punches tape of program 


Accept program from tape 


Returns to BASIC, deleting 


current program 


Returns to BASIC, without 


deleting program 


Summary of system operation 


EDITING COMMANDS 


Lists program with sequence 


numbers 


Changes sequenced nunbered 


line to text 


Inserts "text" before 
Drag 


Deletes line #4? 


line 


Makes "text" final line of 


the program 


CATALOG COMMANDS 





Gives catalog of programs 


library file 


Stores current program in 


library file 


Retrieves program "name" 


from library file 


Erases program "name" 


REAL argunent, REAL value 


SIN (zx) 
cos (xx) 
SORT (rx) 
ASS (rx) 








BLOG (=x) 
ALOSIS (rx 


) 


sine of rx in radians 





absolute value 

e to the power rx 
truncation 
arctan in radians 
log base e 

log base 1g 


NTEGER argument, INTEGER value 


TADS (ix) 
MODE CHANGH 
FLOAT (ix) 


TFIX(rx) 
INT (xx) 


NG 


absolute value 


integer to real 
real to integer 
real to integer 






Printed in 





Statenent 


form 








<var>= 





© comment 


CONTINUE 


DO ££ <ivar>=<initial>,<ifinal>,<i 


END 


FORMAT (<spec>,<spec>,...) 


Goro #32 


IF (<exp>) #21,#22,28 


<exp> Stores value of <exp> in <var> 


. AC" in the first column causes 
rest of the line to be ignored, 


No operation, dummy statement. 





stepp> 

Causes lines down to and including 
if to be repeated 

4 (<ifinal>-<initiail>) /<istep> 
times. <istep> default is +1. 


Indicates end of text. 


Formats input and output. 
Specifications allowed are: 
niw = Integer 

nEw.d - Floating point. 

nEw.d - Expontent form 

nX - Spacing 

‘text' - Literal ficld 
where "n" is the xeplicator 
is the field width, “d" is the 
number of digits after the decimal 

: point, and "text" is a string. 








Transfer control to line with y 
line number 





Branches depending on the 
value of <cexp> 


to $21, Af <exp> < 6 
to 212, if <exp> = g 
to #83, if <exp> > g 


PAUSE <number> Causes 5 second delay in 


READ (1,2##) <var list> Reads valu 


READ (2,28 


Write (3,8 


Variables 


Variables ni 
first must be a let 
If the fir 
or N the varisble will be an integer 


uss 


execution. <number> will be 
printed out, if present. 





s for vari- 
ables from the terminal, using 


FORMAT statement £22. 





#) <var list> Reads values for vari- 
ables from data, using FORMAT 
statement ##2. Everything after 
the END is data. 





Halts execution, 





<var list> Prints values of vari- 
ables out on the terminal using 
FORMAT statement #22. 


and operations 

ay have 1 to 6 characters. The 
er, other may be letters or 

euletier Gevaert Spike 


Starting 











with any other first letter will make the vari- 


able floati A 
place between two quantities of 


USA 





point. il operations must take 


the same mode. 


exponentiation 
multiplication 


division ¢ 





addition 
subtraction # 





